///////////////////
include("conv.php");
include("text-isrt-func.php");
include ("smta-tlkd-func-0017.php");
require_once ("config.php");
require_once ("conv.php");
require_once ("chbt-tlrg-func.php");
require_once ("ipad-regn-func.php");
require_once ("ipad-lang-func.php");
require_once ("ipad-ifce-func.php");
require_once ("ipad-cntr-func.php");
require_once ("land-ipcd-func.php");
require_once ("text-isrt-func.php");
require_once ("chbt-date-func.php");
require_once ("xtrt-xxxx-func.php");
require_once ("calc-text-func.php");
// require_once ("smta-wrdv-func-0001.php");
require_once("tlkd-smts-func.php");
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
if ($invr_corp == null)
{
$invr_corp="semanta";
}
if ($invr_func == null)
{
$invr_func="bzkr";
}
if ($invr_chbt == null)
{
$invr_chbt="semantus";
}
echo "Het module seek-talk faciliteert het zoeken naar reacties op uitingen van de bezoeker.";
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$read_text="Hallo ".$invr_bzkr.", Wat wilt u met ".$invr_chbt." delen om verder te gaan. Mijn eerste reactie is afkomstig van ".$invr_corp. " en luidt ".$invr_bzv1. "U kunt nu Inzoomen op meer informatie";
if ($invr_func != 1)
{
?>
Wat wilt u met echo $invr_chbt; ?> delen om verder te gaan.
}
////////////////////// BUILD IPAD TABLE AND COUNTERS ////////////
////// woordvormanalyse ////
////// CORPORA en Chatbots /////////////////////
$invr_bzv1=str_replace(" ","+",$invr_bzv1);
$read_text="";
// echo " INVR CORP ".$invr_bzkr." INVR BZV1 ".$invr_bzv1;
$invr_bzv1 = str_replace("+jullie +","+".$invr_corp."+",$invr_bzv1);
$invr_bzv1 = str_replace("+jou+","+".$invr_chbt."+",$invr_bzv1);
$invr_bzv1 = str_replace("+mij+","+".$invr_chbt."+",$invr_bzv1);
$invr_bzv1 = str_replace("+u+","+".$invr_chbt."+",$invr_bzv1);
$invr_bzv1 = str_replace("+ons+","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1 = str_replace("+wij+","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1 = str_replace("+we+","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1 = str_replace("+ik+","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1=str_replace("+"," ",$invr_bzv1);
$save_bzv1=$invr_bzv1;
echo " INVR BZKR ".$invr_bzkr." INVR BZV1 ".$invr_bzv1;
////////////////////////////////////////////
$bzv1_itms=explode(" ",$invr_bzv1);
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
if (strlen($invr_bzv1) > 256)
{
echo "Uw uiting is te lang voor dit onderdeel van Semanta. U kunt de tekst door hier te klikken op een andere manier door Semanta laten analyseren.";
exit;
}
if ($invr_bzv2 == null)
{
foreach($bzv1_itms as $bzv1_key => $bzv1_val)
{
// echo " BZV1 VAL NEW ".$bzv1_val;
$base_rslt=xtrt_xxxx("xdotx".$bzv1_val,$invr_taal,"base");
if(count($base_rslt) > 0)
{
foreach($base_rslt as $rule_key =>$rule_val)
{
// echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val;
$rule_itms=explode("!!",$rule_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$domn_itms=explode("@",$tref_domn);
// print_r($domn_itms);
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$stref_antw=str_replace(" ","+",$tref_antw);
$stref_vrag=str_replace(" ","+",$tref_vrag);
$ltref_chbt="".$tref_domn."";
$ltref_corp="".$tref_antw."";
// $ltref_antw="";
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
$rslt_array[$tref_vrag."@".$tref_antw]=$rslt_array[$tref_vrag."@".$tref_antw]+1;
// echo " TREF VRAG ".$tref_vrag."TREF ANTW ".$ltref_antw;
echo " Voor het corpus ".$ltref_corp." kunt u een gesprek aangaan met ".$ltref_chbt;
$read_text=$read_text." Voor het corpus ".$ltref_corp." heeft u gesproken met ".$tref_chbt;
}
}
}
}
foreach($rslt_array as $rule_key =>$rule_val)
{
echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val;
}
/////////////////////////////////////////////
// echo " INVR BZV1 ". $invr_bzv1." SAVE BZV1 ".$save_bzv1;
$bzv1_itms=explode(" ",$invr_bzv1);
$patt_rslt=smta_tlkd($invr_bzv1."@patt");
// echo " PATT RSLT ";
ksort($patt_rslt);
// print_r($patt_rslt);
$patt_sent="";
echo "